perm filename SUS[M11,LCS] blob sn#409379 filedate 1979-01-05 generic text, type T, neo UTF8
SRT←12800;
INS 0 1; <  INSTRUMENT 1 
SIMP
;
OSC P4 FP3 B2 F2;
OUT B2 B1;END; <  ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!   
GEN 0 2 2  1  1;  <SINE WAVE  
 
  < SINE .SCR  --  RANDOM NUMBER=     1
 PLAY;
 SIMP     0.000    .2     C*2    900.0 F2; FINI;
SIMP .2,, D*2;
SIMP .4 .4 E*2;
SIMP P1+P2 .4 G*2;
SIMP P1+P2 .4 G*2;
SIMP P1+P2 .4 A*2;
SIMP P1+P2 .4 G*2;
SIMP P1+P2 .4 E*2;
SIMP P1+P2 .4 C*2;
SIMP P1+P2 .2 C*2;
SIMP P1+P2 .2 D*2;
SIMP P1+P2 .4 E*2;
SIMP P1+P2 .4 E*2;
SIMP P1+P2 .4 D*2;
SIMP P1+P2 .4 C*2;
SIMP P1+P2 1.2 D*2;
 FINISH; < SINE .SCR